home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / AmigaTalk / Intuition / IText.p < prev    next >
Encoding:
Text File  |  2000-05-03  |  3.0 KB  |  86 lines
  1. pTempVar <- <primitive 110 16 >
  2. <primitive 112 pTempVar 1  " new: " \
  3.   #( #[ 16r21 16r66 16r21 16r69 16r51 16r21 16r21 16rFA 16r03 16rBC 16rF2 \
  4.         16r20 16rF3 16rF5] \
  5.     #(  )) >
  6.  
  7. <primitive 112 pTempVar 2  " registerTo: " \
  8.   #( #[ 16r58 16r21 16r19 16rFA 16r03 16rBC 16rF2 16rF5] \
  9.     #(  )) >
  10.  
  11. <primitive 112 pTempVar 3  " remove " \
  12.   #( #[ 16r50 16r19 16rFA 16r02 16rBC 16rF2 16rF5] \
  13.     #(  )) >
  14.  
  15. <primitive 112 pTempVar 4  " setIText: " \
  16.   #( #[ 16r53 16r56 16r21 16r19 16rFA 16r04 16rBC 16rF2 16r21 16r66 16rF5 \
  17.        ] \
  18.     #(  )) >
  19.  
  20. <primitive 112 pTempVar 5  " setNextText: " \
  21.   #( #[ 16r53 16r57 16r21 16r19 16rFA 16r04 16rBC 16rF2 16r21 16r67 16rF5 \
  22.        ] \
  23.     #(  )) >
  24.  
  25. <primitive 112 pTempVar 6  " setFontName: " \
  26.   #( #[ 16r53 16r55 16r21 16r19 16rFA 16r04 16rBC 16rF2 16r21 16r65 16rF5 \
  27.        ] \
  28.     #(  )) >
  29.  
  30. <primitive 112 pTempVar 7  " setITextOrigin: " \
  31.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r53 16r22 \
  32.         16r19 16rFA 16r04 16rBC 16rF2 16r53 16r54 16r23 16r19 16rFA \
  33.         16r04 16rBC 16rF2 16r22 16r63 16r23 16r64 16rF5] \
  34.     #(  )) >
  35.  
  36. <primitive 112 pTempVar 8  " setDrawMode: " \
  37.   #( #[ 16r53 16r52 16r21 16r19 16rFA 16r04 16rBC 16rF2 16r21 16r62 16rF5 \
  38.        ] \
  39.     #(  )) >
  40.  
  41. <primitive 112 pTempVar 9  " setPens: " \
  42.   #( #[ 16r21 16r0A 16r30 16r72 16r21 16r0A 16r31 16r73 16r53 16r50 16r22 \
  43.         16r19 16rFA 16r04 16rBC 16rF2 16r53 16r51 16r23 16r19 16rFA \
  44.         16r04 16rBC 16rF2 16r22 16r60 16r23 16r61 16rF5] \
  45.     #(  )) >
  46.  
  47. <primitive 112 pTempVar 10  " getNextText " \
  48.   #( #[ 16r52 16r57 16r19 16rFA 16r03 16rBC 16rF1 16r67 16rF3 16rF5] \
  49.     #(  )) >
  50.  
  51. <primitive 112 pTempVar 11  " getFontName " \
  52.   #( #[ 16r52 16r55 16r19 16rFA 16r03 16rBC 16rF1 16r65 16rF3 16rF5] \
  53.     #(  )) >
  54.  
  55. <primitive 112 pTempVar 12  " getITextOrigin " \
  56.   #( #[ 16r52 16r53 16r19 16rFA 16r03 16rBC 16r63 16r52 16r54 16r19 16rFA \
  57.         16r03 16rBC 16r64 16r13 16r14 16r81 16r00 16rF3 16rF5] \
  58.     #( #@  )) >
  59.  
  60. <primitive 112 pTempVar 13  " getDrawMode " \
  61.   #( #[ 16r52 16r52 16r19 16rFA 16r03 16rBC 16rF1 16r62 16rF3 16rF5] \
  62.     #(  )) >
  63.  
  64. <primitive 112 pTempVar 14  " getIText " \
  65.   #( #[ 16r52 16r56 16r19 16rFA 16r03 16rBC 16rF1 16r66 16rF3 16rF5] \
  66.     #(  )) >
  67.  
  68. <primitive 112 pTempVar 15  " getTextLength " \
  69.   #( #[ 16r59 16r19 16rFA 16r02 16rBC 16rF1 16r68 16rF3 16rF5] \
  70.     #(  )) >
  71.  
  72. <primitive 112 pTempVar 16  " getPens " \
  73.   #( #[ 16r52 16r50 16r19 16rFA 16r03 16rBC 16r60 16r52 16r51 16r19 16rFA \
  74.         16r03 16rBC 16r61 16r10 16r11 16r81 16r00 16rF3 16rF5] \
  75.     #( #@  )) >
  76.  
  77. <primitive 98 #IText \
  78.   <primitive 97 #IText #Glyph #AmigaTalk:Intuition/IText.st \
  79.    #(  #frontPen #backPen #drawMode #leftEdge #topEdge #fontName #theText \
  80.         #textLength #theTextName ) \
  81.    #( #new: #registerTo: #remove #setIText: #setNextText: #setFontName:  \
  82.        #setITextOrigin: #setDrawMode: #setPens: #getNextText #getFontName #getITextOrigin #getDrawMode  \
  83.        #getIText #getTextLength #getPens  ) \
  84.   pTempVar 4 5 >>
  85.  
  86.